home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m5.d64 / art show.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  58 lines
  1. 1 REM  ART SHOW FOR DIGITIZED PICTURES
  2. 2 REM  BY STEPHEN MURRI.
  3. 3 REM
  4. 4 REM  SPECIAL THANKS TO FRANK COVITZ
  5. 5 REM  FOR DESIGNING THE DIGITIZER.
  6. 6 REM
  7. 10 REM SPRITES AT $3F80
  8. 11 REM DISSOLVE ROUTINES AT $C000
  9. 17 IFX=0THENPOKE53280,6:POKE53281,6:PRINT"[147]TPUG COMMODORE 64 ART SHOW"
  10. 19 IFX=0THENX=1:PRINT"LOADING...HANG IN THERE..."
  11. 20 IFX=1THENX=2:LOAD"LOGO.D",8,1
  12. 22 IFX=2THENX=3:LOAD"DISSOLVE.D",8,1
  13. 25 IFX=3THENPOKE55,0:POKE56,31:CLR:X=4:GOTO2000
  14. 30 IFX=4THENX=5:POKE53280,0:POKE53281,0:GOTO50
  15. 40 IFX=5THEN130
  16. 50 PRINT"[147]         PRESS ANY KEY TO START"
  17. 51 GETA$:IFA$=""THEN51
  18. 52 PRINT"[147]":FORT=0TO500:NEXT:GOTO60
  19. 60 REM MAIN LOOP
  20. 61 GOSUB1000:REM TITLE SCREEN
  21. 100 SYS34592:REM SET UP MC BITMAP MODE
  22. 105 FORT=0TO100:NEXT
  23. 110 SYS34592+3:REM DISSOLVE IN SCREEN
  24. 120 GOTO2000:REM LOAD NEXT FILE
  25. 130 SYS34592+6:REM DISSOLVE OUT
  26. 140 REM
  27. 150 IFE=1THEN9000:REM END OF STREAM
  28. 160 GOTO100
  29. 1000 SYS34592+9:REM RESTORE TEXT MODE
  30. 1005 POKE2040,254:REM SPRITE POINTER
  31. 1010 POKE2041,255:REM SPRITE POINTER
  32. 1020 VIC=53248
  33. 1030 POKEVIC+39,6:REM COLOR 0
  34. 1040 POKEVIC+40,2:REM COLOR 1
  35. 1050 POKEVIC+29,0:REM X EXPAND OFF
  36. 1060 POKEVIC+28,0:REM MCM OFF
  37. 1070 POKEVIC+23,0:REM Y EXPAND OFF
  38. 1080 POKEVIC+16,0:REM MSB X OFF
  39. 1090 POKEVIC+1,136:REM Y LOCATION 0
  40. 1100 POKEVIC+3,136:REM Y LOCATION 1
  41. 1110 POKEVIC+0,128:REM X LOCATION 0
  42. 1120 POKEVIC+2,127:REM X LOCATION 1
  43. 1130 POKEVIC+21,3:REM TURN ON
  44. 1150 PRINT"[147]TPUG COMMODORE 64"
  45. 1160 PRINT" ART SHOW"
  46. 1165 FORT=0TO2500:NEXT
  47. 1166 POKEVIC+21,0:REM SPRITES OFF
  48. 1170 RETURN
  49. 2000 IFN=0THENF$="JIMMY.D"
  50. 2001 IFN=1THENF$="SIGNATURE.D"
  51. 2002 IFN=2THENF$="JIMMY.D":E=1
  52. 2200 FI$=F$
  53. 2205 N=N+1
  54. 2210 LOADFI$,8,1
  55. 2220 END
  56. 9000 SYS34592+9:REM RESTORE TEXT MODE
  57. 9100 CLR:N=1:X=5:GOTO60
  58.